home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Personal Organiser / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-12  |  1.7 KB  |  57 lines
  1. VERSION 5.00
  2. Object = "{FAE1731F-430A-11D4-B183-D1B9690DF016}#22.0#0"; "FORMINDIVIDUAL.OCX"
  3. Begin VB.Form Startup 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   1875
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   3720
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "Form1.frx":0000
  12.    ScaleHeight     =   1875
  13.    ScaleWidth      =   3720
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin FormIndividual.IndForm IndForm1 
  17.       Left            =   240
  18.       Top             =   1200
  19.       _ExtentX        =   873
  20.       _ExtentY        =   873
  21.    End
  22.    Begin VB.Label Label1 
  23.       BackStyle       =   0  'Transparent
  24.       Height          =   255
  25.       Left            =   1440
  26.       TabIndex        =   0
  27.       Top             =   1440
  28.       Width           =   855
  29.    End
  30.    Begin VB.Image Image1 
  31.       Height          =   1875
  32.       Left            =   0
  33.       Picture         =   "Form1.frx":16B8A
  34.       Top             =   0
  35.       Width           =   3705
  36.    End
  37. Attribute VB_Name = "Startup"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43. Dim formen As Variant
  44. Private Sub Form_Load()
  45. formen = IndForm1.Bitmap2Form(Me.Picture, vbBlack)
  46. End Sub
  47. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  48.     FormDrag Me
  49. End Sub
  50. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  51.     FormDrag Me
  52.     End Sub
  53. Private Sub Label1_Click()
  54. Me.Hide
  55. main.Show
  56. End Sub
  57.